home *** CD-ROM | disk | FTP | other *** search
- inherited JournalReviewDateForm: TJournalReviewDateForm
- Caption = 'Review by Date'
- PixelsPerInch = 96
- TextHeight = 13
- inherited ReviewControlPanel: TPanel
- inherited EditEntryButton: TSpeedButton
- Left = 40
- end
- object ShowTreeButton: TSpeedButton
- Left = 8
- Top = 4
- Width = 25
- Height = 25
- Hint = 'Show/Hide Dates'
- AllowAllUp = True
- GroupIndex = 2
- Down = True
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000CE0E0000C40E00000000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00303333333333
- 3333378333333333333330333333333333333783388883388388303300003300
- 3003378877773877377330000118033333333777783378333333303301180333
- 3333378378887833333330330000033333333783777773333333303333333333
- 3333378338888338838830330000330030033788777738773773300001180333
- 3333377778337833333330330118033333333783788878333333303300000333
- 3333378377777333333330333333333333333788833883888333000033003000
- 3333777738773777333301180333333333337833783333333333011803333333
- 3333788878333333333300000333333333337777733333333333}
- NumGlyphs = 2
- OnClick = ShowTreeButtonClick
- end
- object DatePanel: TPanel
- Left = 276
- Top = 1
- Width = 376
- Height = 31
- Align = alRight
- TabOrder = 0
- object ReviewDayLabel: TLabel
- Left = 12
- Top = 2
- Width = 353
- Height = 24
- Alignment = taRightJustify
- AutoSize = False
- Caption = 'Wednesday: December 31, 1996'
- Font.Color = clBlack
- Font.Height = -19
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- end
- end
- object ReviewDateTree: TTreeView [2]
- Left = 0
- Top = 33
- Width = 165
- Height = 334
- ReadOnly = True
- HideSelection = False
- Indent = 19
- OnExpanded = ReviewDateTreeExpanded
- OnCollapsed = ReviewDateTreeCollapsed
- OnChange = ReviewDateTreeChange
- Align = alLeft
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- TabOrder = 2
- PopupMenu = DateTreePopup
- ParentFont = False
- Images = JournalDataModule.BookImages
- end
- object ReviewSplitter: TSplitter [3]
- Left = 165
- Top = 33
- Width = 4
- Height = 334
- Cursor = crHSplit
- ResizingControl = ReviewDateTree
- end
- inherited EntryPage: TPageControl
- Left = 169
- Width = 484
- TabOrder = 4
- end
- inherited EntryPopUp: TPopupMenu
- inherited PopupReviewbyDate: TMenuItem
- Visible = False
- end
- end
- object DateTreePopup: TPopupMenu [7]
- Left = 52
- Top = 80
- object NewEntryDate: TMenuItem
- Caption = 'New Entry Date'
- ShortCut = 0
- OnClick = DatesNewDateClick
- end
- object DeleteDatePopup: TMenuItem
- Caption = 'Delete Date'
- ShortCut = 0
- OnClick = DatesDeleteDateClick
- end
- end
- inherited EntryResolutionFix: TResolutionFix
- Top = 80
- end
- end
-